home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / FADAL1S.M3 < prev    next >
Text File  |  1996-04-01  |  5KB  |  166 lines
  1. name Fadal Format 1 with Sub Programs Calls
  2.  
  3. % 00
  4. ! 00
  5. / 00
  6. O >4
  7. N >4
  8. G >2
  9. S >4
  10. H >2
  11. D >2
  12. M >2
  13. T >2
  14. R ->3.>4
  15. z ->3.>4 Z
  16. E >2
  17. X ->3.>4
  18. Y ->3.>4
  19. Z ->3.>4
  20. I ->3.>4
  21. J ->3.>4
  22. K ->3.>4
  23. F >4.>2
  24. Q ->3.>4
  25. L 22                                       
  26. l 21 L                                 
  27. P 1                                    
  28. ( 00
  29. d >3.>4
  30. e >3.>4
  31. f >3.>4
  32. * 00 ""
  33.  
  34. ModalLetters X Y Z F R                # List of letters that are modal
  35.  
  36. ModalGs 0 1 2 3 73 74 76 80 81 82 83 84 85  # List of g codes that are modal
  37.  
  38. Sequence#s N 0 1 1                    # Char, freq, incr & start
  39. First#? N                             # Y or N  'Output 1st sequence no.
  40. Last#? N                              # Y or N  'Output last sequence no.
  41.  
  42. HCode X                               # X or X U  'Horizontal char.
  43. VCode Y                               # Y or Y V  'Vertical char.
  44. Dcode Z                               # Depth char.
  45. FeedCode F                            # Feed rate char.
  46.  
  47. Comment ( )                           # Begin End comment char.
  48.  
  49. Spindle 3 4 5                         # Cw, ccw & stop m codes
  50. Coolant 8 9 7                         # On, Off & Mist m codes
  51. DComp 41 42 40                        # Left, Right & Cancel m codes
  52. LComp 43 49                           # On & Off codes
  53.  
  54. Feed G1                               # Linear move
  55. Rapid G0                              # Rapid positioning word
  56. Cw G2                                 # Circular move clockwise
  57. Ccw G3                                # Circular move counter clockwise
  58.  
  59. Inc/Abs G 91 90                       # Inc & Abs char. & values
  60.  
  61. CtrCode I J                           # I J or R or I J K L
  62. Helical? Y
  63. Spaces? Y                             # Y or N  'Spaces between words
  64.  
  65. Incremental? N                        # Y or N  'Inc or abs output
  66. CtrIncremental? Y                     # Y or N  'Inc or abs I & J
  67. ByQuadrants? N                        # Y or N  'Break arcs at quadrants
  68.  
  69. Subs1st? Y                            # Y or N 'Orders main & sub programs
  70.  
  71. UppercaseComments? Y                  # Y or N 'Require uppercase comments
  72.  
  73. WorkDefault 1                         # Work offset register default
  74.  
  75. Drill                                 # Drilling canned/manual cycle
  76. G81 G99 R[Vclear] z[D] F[FRate] X[H] Y[V]
  77. end cancel
  78.  
  79. Peck                                  # Pecking canned/manual cycle
  80. G83 G99 R[Vclear] z[D] F[FRate] Q[VBite] X[H] Y[V]
  81. end cancel
  82.  
  83. Tap                                   # Tapping canned/manual cycle
  84. G84 G99 R[Vclear] z[D] F[Frate] Q[VBite] X[H] Y[V]
  85. end cancel
  86.  
  87. LTap                                  # Left handed tapping cycle
  88. G74 G99 R[Vclear] z[D] F[Frate] Q[VBite] X[H] Y[V]
  89. end cancel
  90.  
  91. Ream                                  # Reaming canned/manual cycle
  92. G85 G99 R[Vclear] z[D] F[FRate] X[H] Y[V]
  93. end cancel
  94.  
  95. Bore                                  # Boring canned/manual cycle
  96. G86 G99 R[Vclear] z[D] F[FRate] X[H] Y[V]
  97. end cancel
  98.  
  99. Back                                  # Back boring canned/manual cycle
  100. G76 G99 R[Vclear] z[D] F[FRate] Q[Sclear] X[H] Y[V]
  101. end cancel
  102.  
  103. Cancel                                # Cancel a canned/manual cycle
  104. G80
  105. end
  106.  
  107. StartCode                             # Start of the program
  108. %0
  109. End
  110.  
  111. 1stToolChange                         # First tool change
  112. M6 T[Tool] (0 d[ToolRad] e[ToolDiam] f[corner]
  113. G0 G90 S[Speed] M[Direct] X[H] Y[V]
  114. H[Lcomp] M[Cool] Z[D]
  115. End
  116.  
  117. Infeed                                # Enable cutter comp
  118. G1 G[Side] X[H] Y[V] F[FRate]
  119. end
  120.  
  121. Outfeed                               # Disable cutter comp
  122. G40 X[H] Y[V]
  123. Z[D]
  124. end
  125.  
  126. ToolChange                            # Secondary tool changes
  127. M5 M9
  128. G0 G49 G90 Z0
  129. M6 T[Tool] (0 d[ToolRad] e[ToolDiam] f[corner]
  130. G0 G90 S[Speed] M[Direct] X[H] Y[V]
  131. H[Lcomp] M[Cool] Z[D]
  132. End
  133.  
  134. EndCode                               # End of the program
  135. M5 M9
  136. G0 G49 G90 Z0
  137. E0 X0 Y0
  138. M6 T[Tool1]
  139. M2
  140. %0
  141. End
  142.  
  143. Between                               # Between the main and sub programs
  144. M30                                  
  145. !0 O[Program#]
  146. End
  147.  
  148. SubCall                               # Call a sub program
  149. E[Work] X[H] Y[V]
  150. l[Sub] P1                            
  151. End
  152.  
  153. SubStart                              # Start of the sub program
  154. L[Sub]                                 
  155. End
  156.  
  157. SubEnd                                # End of the sub program
  158. M17                                  
  159. End
  160.  
  161. replace "d" with "Tool Radius "
  162. replace "e" with "Diam "
  163. replace "f" with "Corner Rad. "
  164. replace " P" with ""                  
  165.            
  166.